home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / Democd1 / GCTHEY.dxr / 00057_button handlers.ls < prev    next >
Encoding:
Text File  |  1997-06-04  |  3.7 KB  |  151 lines
  1. on button1
  2.   global button, gnoteE6, gnoteA5, gnoteD4, gnoteG3, gnoteB2, gnoteE1
  3.   set button to 1
  4.   ChordPress("G0092", 28, "1 Large", "fretpointer 3-6", "1 selected")
  5.   set gnoteE6 to "g1"
  6.   set gnoteA5 to "d2"
  7.   set gnoteD4 to "g2"
  8.   set gnoteG3 to "b2"
  9.   set gnoteB2 to "d3"
  10.   set gnoteE1 to "g3"
  11. end
  12.  
  13. on button2
  14.   global button, gnoteE6, gnoteA5, gnoteD4, gnoteG3, gnoteB2, gnoteE1
  15.   set button to 2
  16.   ChordPress("G0183", 76, "2 Large", "fretpointer 1-4", "2 selected")
  17.   set gnoteE1 to "E3"
  18.   set gnoteB2 to "B2"
  19.   set gnoteG3 to "G2"
  20.   set gnoteD4 to "E2"
  21.   set gnoteA5 to "B1"
  22.   set gnoteE6 to "E1"
  23. end
  24.  
  25. on button3
  26.   global button, gnoteE6, gnoteA5, gnoteD4, gnoteG3, gnoteB2, gnoteE1
  27.   set button to 3
  28.   ChordPress("G0014", 125, "3 Large", "fretpointer 1-4", "3 selected")
  29.   set gnoteE6 to "dont"
  30.   set gnoteA5 to "dont"
  31.   set gnoteD4 to "d2"
  32.   set gnoteG3 to "a2"
  33.   set gnoteB2 to "d3"
  34.   set gnoteE1 to "fs3"
  35. end
  36.  
  37. on button4
  38.   global button, gnoteE6, gnoteA5, gnoteD4, gnoteG3, gnoteB2, gnoteE1
  39.   set button to 4
  40.   ChordPress("G0011", 174, "4 Large", "fretpointer 1-4", "4 selected")
  41.   set gnoteE6 to "e1"
  42.   set gnoteA5 to "b1"
  43.   set gnoteD4 to "e2"
  44.   set gnoteG3 to "g2"
  45.   set gnoteB2 to "b2"
  46.   set gnoteE1 to "e3"
  47. end
  48.  
  49. on button5
  50.   global button, gnoteE6, gnoteA5, gnoteD4, gnoteG3, gnoteB2, gnoteE1
  51.   set button to 5
  52.   ChordPress("G0184", 223, "5 Large", "fretpointer 5-8", "5 selected")
  53.   set gnoteE1 to "as3"
  54.   set gnoteB2 to "F3"
  55.   set gnoteG3 to "D3"
  56.   set gnoteD4 to "as2"
  57.   set gnoteA5 to "F2"
  58.   set gnoteE6 to "as1"
  59. end
  60.  
  61. on button6
  62.   global button, gnoteE6, gnoteA5, gnoteD4, gnoteG3, gnoteB2, gnoteE1
  63.   set button to 6
  64.   ChordPress("G0185", 272, "6 Large", "fretpointer 4-7", "6 selected")
  65.   set gnoteE1 to "A3"
  66.   set gnoteB2 to "E3"
  67.   set gnoteG3 to "D3"
  68.   set gnoteD4 to "G2"
  69.   set gnoteA5 to "E2"
  70.   set gnoteE6 to "A1"
  71. end
  72.  
  73. on button7
  74.   global button, gnoteE6, gnoteA5, gnoteD4, gnoteG3, gnoteB2, gnoteE1
  75.   set button to 7
  76.   ChordPress("G0186", 320, "7 Large", "fretpointer 2-5", "7 selected")
  77.   set gnoteE1 to "G3"
  78.   set gnoteB2 to "D3"
  79.   set gnoteG3 to "C3"
  80.   set gnoteD4 to "G2"
  81.   set gnoteA5 to "C2"
  82.   set gnoteE6 to "dont"
  83. end
  84.  
  85. on button8
  86.   global button, gnoteE6, gnoteA5, gnoteD4, gnoteG3, gnoteB2, gnoteE1
  87.   set button to 8
  88.   ChordPress("Cmaj/B", 369, "8 Large", "fretpointer 1-4", "8 selected")
  89.   set gnoteE1 to "dont"
  90.   set gnoteB2 to "C3"
  91.   set gnoteG3 to "C3"
  92.   set gnoteD4 to "cb3"
  93.   set gnoteA5 to "gb2"
  94.   set gnoteE6 to "gb3"
  95. end
  96.  
  97. on button9
  98.   global button, gnoteE6, gnoteA5, gnoteD4, gnoteG3, gnoteB2, gnoteE1
  99.   set button to 9
  100.   ChordPress("Amin7", 418, "9 Large", "fretpointer 1-4", "9 selected")
  101.   set gnoteE1 to "dont"
  102.   set gnoteB2 to "C3"
  103.   set gnoteG3 to "C3"
  104.   set gnoteD4 to "cb3"
  105.   set gnoteA5 to "gb2"
  106.   set gnoteE6 to "gb3"
  107. end
  108.  
  109. on button10
  110.   global button, gnoteE6, gnoteA5, gnoteD4, gnoteG3, gnoteB2, gnoteE1
  111.   set button to 10
  112.   ChordPress("A7sus4", 467, "10 Large", "fretpointer 1-4", "10 selected")
  113.   set gnoteE1 to "dont"
  114.   set gnoteB2 to "C3"
  115.   set gnoteG3 to "C3"
  116.   set gnoteD4 to "cb3"
  117.   set gnoteA5 to "gb2"
  118.   set gnoteE6 to "gb3"
  119. end
  120.  
  121. on button11
  122.   global button, gnoteE6, gnoteA5, gnoteD4, gnoteG3, gnoteB2, gnoteE1
  123.   set button to 11
  124.   ChordPress("Dmaj", 516, "11 Large", "fretpointer 1-4", "11 selected")
  125.   set gnoteE1 to "dont"
  126.   set gnoteB2 to "C3"
  127.   set gnoteG3 to "C3"
  128.   set gnoteD4 to "cb3"
  129.   set gnoteA5 to "gb2"
  130.   set gnoteE6 to "gb3"
  131. end
  132.  
  133. on button12
  134.   global button, gnoteE6, gnoteA5, gnoteD4, gnoteG3, gnoteB2, gnoteE1
  135.   set button to 12
  136.   ChordPress("Dmaj", 564, "12 Large", "fretpointer 1-4", "12 selected")
  137.   set gnoteE1 to "dont"
  138.   set gnoteB2 to "C3"
  139.   set gnoteG3 to "C3"
  140.   set gnoteD4 to "cb3"
  141.   set gnoteA5 to "gb2"
  142.   set gnoteE6C to "gb3"
  143. end
  144.  
  145. on buttonhelp
  146.   global box
  147.   puppetSound("SCLICK.WAV")
  148.   set box to "fbutton"
  149.   ZONEPRESS()
  150. end
  151.